home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / psdump.sda / PS DUMP CBM V0 (.txt) next >
Commodore BASIC  |  2009-10-10  |  3KB  |  107 lines
  1. 10 GOTO100
  2. 20 C$="":FORK=1TO16:B$=MID$(A$,K,1)
  3. 30 IFB$=SS$THEN50
  4. 40 C$=C$+B$:NEXT
  5. 50 RETURN
  6. 60 :
  7. 70 J=-1:FORI=0TONR:IFLEFT$(P$(I),1)=""THENJ=J+1:P$(J)=MID$(P$(I),2)
  8. 80 PRINTJ+1"[157] [199]RAPHICS TO PRINT[145]":NEXT:NR=J:RETURN
  9. 90 :
  10. 100 POKE56,85:CLR:GOSUB480:Z$=CHR$(0):G$=" ":PRINTCHR$(14):SS$=CHR$(160)
  11. 110 BL$="[145]                                      [145]"::B2$="        ":DIMP$(145)
  12. 120 PRINT"[147]     [208]RINT [211]HOP [199]RAPHICS [196]UMP [214]2.0
  13. 125 [153][166]7)"(null)ERSION FOR 1525 (null)RINTERS.
  14. 130 PRINTSPC(14)"[202]IM [200]ARVEY
  15. 140 [153]"   18538 RIGHT$NKSTER, (null)EDFORD (null)ICH. 48240
  16. 150 PRINT:PRINT" [193]T THE PROMPT ENTER:
  17. 160 [153]"   YWAIT TO PRINT
  18. 170 PRINT"   N[146] TO NOT PRINT
  19. 180 [153]"   RWAIT TO MARK REST SAME AS LAST
  20. 190 PRINT"   Q[146] TO REDISPLAY LIST
  21. 200 [153]"  LEFT$IGHLIGHTED FILES WILL BE PRINTED. WAIT"
  22. 210 [153]" RIGHT$NSERT:
  23. 220 PRINT" [208]RINT [211]HOP SOURCE DISK IN UNIT EIGHT"
  24. 230 GOSUB980
  25. 240 GOSUB360
  26. 250 PRINT:PRINT"  [212]HESE FILES WERE FOUND: "
  27. 260 GOSUB790:GOSUB980
  28. 270 GOSUB510
  29. 280 PRINT:PRINT"  [200]ERE IS HOW THE LIST LOOKS: "
  30. 290 GOSUB790
  31. 300 GOSUB870
  32. 310 IFCTHEN270
  33. 320 GOSUB70
  34. 330 PRINT:GOSUB620
  35. 340 POKE198,0:PRINT:PRINT:END
  36. 350 :
  37. 360 OPEN15,8,15,"I":OPEN1,8,3,"$0":PRINT"  [212]HIS [196]ISK IS:
  38. 370 [158]IN:DN$[178][202](IN$,143,23):[153]DN$:[153]
  39. 380 NR[178][171]1:[129]I[178]1[164]18:[158]IN:[153]"CHR$ETTING DIRECTORY BLOCK"I
  40. 390 [129]J[178]1[164]254[169]32
  41. 400 TY[178][198]([202](IN$,J,1)[170]Z$):[139]TY[179][177]130[167]440
  42. 410 A$[178][202](IN$,J[170]28,1):B$[178][202](IN$,J[170]29,1):[141]940:[139]Z[179][177]2[167]440
  43. 420 A$[178][202](IN$,J[170]3,16)
  44. 430 NR[178]NR[170]1:[141]20:P$(NR)[178]C$
  45. 435 [153]NR[170]1;"CMD "A$;:[141]960
  46. 440 [130]:[139]ST[167]460
  47. 450 [153]"ONON":[130]
  48. 460 [160]1:[160]15:[142]
  49. 470 :
  50. 480 IN$[178]"  ":[129]I[178]1[164]6:IN$[178]IN$[170]IN$:[130]:IN$[178][202](IN$,2)
  51. 490 IN$[178]IN$[170]IN$:IN[178]4640:[142]
  52. 500 :
  53. 510 B[178]0:A$[178]"Y":[153]"ONON":[129]I[178]0[164]NR:A[178][200](P$(I),1)[178]""
  54. 515 PD$[178][202](BL$,2,16[171][195](P$(I))[171]A)
  55. 520 [153]"(null)RINT:WAIT "P$(I)" WAIT"PD$"<Y,N,R,QWAIT>";
  56. 530 [139]B[167]A$[178]B$:[137]570
  57. 540 [139]A[167][153]"  Y   CMDCMDCMDCMDCMDCMD";
  58. 550 [139][168]A[167][153]"  N   CMDCMDCMDCMDCMDCMD";
  59. 560 B$[178]A$:[133]A$:[153]"ON";:[139]A$[178]"R"[167]B[178][171]1:[137]530
  60. 570 [153]"ON":[139][168]A[175]A$[178]"Y"[167]P$(I)[178]""[170]P$(I)
  61. 580 [139]A[175]A$[178]"N"[167]P$(I)[178][202](P$(I),2,16)
  62. 590 [139]A$[178]"Q"[167][142]
  63. 600 [130]:[153]:[142]
  64. 610 :
  65. 620 [159]4,4
  66. 640 [139]NR[178][171]1[167]770
  67. 650 L[178]0:[129]GG[178]0[164]NR[169]5
  68. 660 [129]H[178]0[164]4:G[178]GG[170]H:C$[178]P$(G):[153]" (null)OADING #"G[170]1;"CMD "C$;:[141]960
  69. 670 [151]147,0:[158]57812 C$,8,0
  70. 680 [151]780,0:[151]781,0:[151]782,88:[158]62622:[158]4688:[158]4806[170]3[172]H
  71. 690 [139]G[178]NR[167]H[178]4
  72. 700 [130]
  73. 710 [153]"     (null)(null)RIGHT$(null)(null)RIGHT$(null)CHR$  WAIT";:[141]960:H[178]GG
  74. 712 [158]4821:L[178]L[170]1:[152]4,[199](15);
  75. 720 [152]4,[200]([200](B2$,(16[171][195](P$(H)))[173]2)[170]P$(H)[170]B2$,16);:[139]H[178]NR[167]750
  76. 730 [139]H[179]G[167]H[178]H[170]1:[137]720
  77. 750 [152]4:[152]4:[139]L[178]09[167][141]1010
  78. 760 [130]:[139]L[177]0[167][141]1010
  79. 770 [160]4:[142]
  80. 780 :
  81. 790 P$(NR[170]1)[178]" ":[153]"  "DN$" "
  82. 800 [129]J[178]0[164]NR[169]2
  83. 810 [139]J[177]0[175](J[173]40[178][181](J[173]40))[167][141]980
  84. 820 [153]P$(J)"WAIT"[163]20)P$(J[170]1)
  85. 830 [130]
  86. 840 [153]"   VALND OF LIST  "
  87. 850 [142]
  88. 860 :
  89. 870 [153]"  B TO BEGIN, A TO ABORT, Q TO REDO WAIT"
  90. 880 [161]A$:[139]A$[178]""[167]880
  91. 890 C[178]0:[139]A$[178]"Q"[167]C[178][171]1:[137]920
  92. 900 [139]A$[178]"A"[167][153]:[153]:[144]
  93. 910 [139]A$[179][177]"B"[167]880
  94. 920 [153]BL$:[142]
  95. 930 :
  96. 940 Z[178][198](A$[170]Z$)[170]256[172][198](B$[170]Z$):[142]
  97. 950 :
  98. 960 [153][201](BL$,39[171][185](I)):[142]
  99. 970 :
  100. 980 [153]"  (null)RESS ATNNY (null)EY TO LENONTINUE "
  101. 990 [146]197,64:[146]197,64,64:[153]BL$:[151]198,0:[142]
  102. 1010 [139]L[179]09[167][129]J[178]L[164]09:[141]1030:[130]
  103. 1015 [152]4,[166]28);DN$
  104. 1020 [129]I[178]1[164]5:[152]4:[130]:L[178]0:[142]
  105. 1030 [152]4,[199](8);:[129]I[178]1[164]6:[152]4,[199](128):[130]:[152]4,[199](15);
  106. 1040 [152]4:[152]4:[142]
  107.